00010 



XLIST 
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17100000 000000 000000 
000001 000000 000000 



00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 



PUSHJ POP, COREl 



;ITEM = JOB #. TAG = IK CORE BLOCKS 



RETl 
RET2 

JBADR (ITEM) = POINTER 

C(RH) JBTAOR IS SET TO 

TAG = CORTALLY AT EXIT 

NOT A PURE PROCEDURE . 

CORTAL: 

CORTAB: block ^D2 

IK OF CORE. 1 = USED. 



;requested 

;0ld core returned, 

;0LD GORE RETURNED, 

JSET UP 
TO JOB AREA. JOBREL (JBTAOR) = 
OR REQUESTED GORE. JOBREL IS 



JBTADR, JOBREL ARE 



HIGHEST LOCAT 
SET IF GORE G 



;COUNT OF FREE CORE 
;TABLE of 72 BITS. 1 



BIT FOR 



FREE 



CORLST: point 1, CORTAB, 32 

TEMPORARY USAGE 
C0RUS2: 
GORLOC: 



POINTER FIRST OUT OF BOUNDS 



;SI?E OF USERS CODE, OLD. -NEW 
{POSITION OF 1ST FREE BLOCK 



;AC ASSIGNMENTS 

G0R1=BUFPNT 

C0R2=BUFWRD 

C0R3=UU0 

INTERNAL COREl 

EXTERNAL JBTADR, JOBREL , CORLST, CORTAL , CORTAB 
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000002 135500 000042' 

000003 202500 000001' 

000004 322500 000013' 

000005 554504 000000 

000006 350000 000012 

000007 240500 777766 

000010 202500 000000' 

000011 402000 000014 

000012 260140 000056' 

000013 402004 000005' 

000014 322040 000037* 

000015 2006(^0 000043' 

000016 476000 000001' 

000017 260140 000044' 

000020 254000 000040' 

000021 315500 000001 

000022 254000 000017' 

000023 213000 000012 

000024 272500 000001' 

000025 202040 000000' 

000026 201600 000001 

000027 260140 000056' 

000030 200500 000001' 

000031 240500 000012 

000032 542504 000013' 

000033 240040 000012 

000034 275040 000001 

000035 542052 000000 

000036 506044 000032' 

000037 350003 000000 

000040 200040 000000 

000041 263140 000000 

000042 121004 000036' 

000043 440100 000000 



00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 



COREi: 



corret: 
corget: 

CORGl: 

corgve: 



COROK: 
CORNG: 



COREIP: 
C0RE2P: 



LDB CORl, COREIP 

MOVEM CORl, CORLOC 

JUMPE CORl, CORGET 

HLRZ CORl, JBTADR( ITEM) 

AOS CORl 

ASH CORl, -tD10 

MOVEM CORl, CORUSZ 

CLEARM C0R3 

PUSHJ POP, CORSTG 

SETZM JBTADR(ITEM) ;CLEAR , 

JUMPE TAC, COROK 

MOVE C0R3, C0RE2P ;SET UP 

SETOM CORLOC 

PUSHJ POP, CORHOL 

JRST CORNG 

CAMGE CORl 

JRST CORGI 

MOVNS CORl 

AODM CORl, 

MOVEM TAC, 

MOVEI C0R3 

PUSHJ POP, 

MOVE CORl, 

ASH CORl, 

HRRM CORl, 



; if no core noew. 

jclear old core 

;highest address avail, form 



RETURN OLD CORE 



TAC 



CORLOC 

CORUSZ 
, 1 

CORSTG 

CORLOC 
tDl0 

JBTADR(ITEM) 



OB ADDRESS TO 


; IF NO CORE TO 


FOR 


.-HOLE SEARCH 


;UNSUCCESSFUL 


;H0LE FOUND 



GET, RETURN 



SEARCH 



;BACKUP CORLOC 

;RESERVE HOLE 
;SET CORTAB 



FOR JOB 



;C(RH)=RELOC, C(LH)=PROTECT 



ASH TAC, toi0 

SUBI TAC, 1 

HRRM TAC, JOBREL (CORl) 

HRLM TACJBTADRdTEM) 

AOS (POP) 

MOVE TAC, CORTAL 

POPJ POP, 



POINT 8, 
POINT 1, 



JBTaDRR(ITEM),25 

CORTAB 
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000044 
000045 
000046 
000047 
000050 
000051 
000052 
000053 
000054 
000055 



000056 
000057 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000070 
000071 
000072 
000073 
000074 
000075 

000076 

000077 



402000 
316600 
263140 
134540 
350000 
336000 
344500 
322500 
350003 
263140 



261140 
200540 
332000 
213000 
272540 
200040 
231040 
270040 
213000 
271100 
137100 
200540 
136600 
367540 
262140 
263140 



000012 
000000 

000000 

000014 
000001' 
000013 
000045* 

000045' 

00 0000 
000000 



000001 

000000' 

000014 

000013 

000040' 

000001' 

000044 

000076' 

000002 

000044 

000077' 

000000' 

000001 

000072' 

000001 

000000 



000100 000043' 
360600 000001 



00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 



CORL 
STOP 
CORHOL 
CORHOl 



; IF C 
; IF C 
; USES 

; CORT 
CORSTG 



CORLOP 



PUSH 

RETU 

RETU 

DC CONTA 

STRING 

: CLEA 

: CAMN 

POPJ 

ILDB 

AOS 

SKIP 

AOJA 

JUMP 

AOS 

POPJ 

PUSH 

OR3=0, T 

0R3=1, T 

CORl, C 

AL=COUNT 

: PUSH 

MOVE 

SKIP 

MOVN 

ADDM 

MOVE 

IDIV 

ADO 

MOVN 

ADDI 

DPB 

MOVE 

: DPBI 

SOJG 

POP 

POPJ 



J POP 

RNl 

RN2 

INS 

TEST 

RM CO 

C0R3 

POP. 

C0R2 

CORLO 

N COR 

CORl 

E COR 

(POP) 

POP, 

J POP 

HEN F 

HEN R 

0R2. 

OF F 

POP. 

C0R2 

E COR 

S COR 

C0R2 

TAC, 

I TAC 

TAC, 

S TAC 

TACl 

TACl, 

C0R2 

C0R3 

C0R2 

POP, 

POP. 



, CORHOL ;C0R1-H0LES FREE, C0R2=TEMP 

;C0R3=P0INTER. RETURN1=END OF STRING RE 
JHOLE FOUND. 

,1.. N, THE CORE BLK PTR. CORLST IS PTR TO 



Rl 

, CORLST 

, C0R3 

C 

2 

, CORHOl 

1, CORHOl 



CORSTG 
REE CORE 
ESERVE CORE 
C0R3 
REE CORE. A 

TAC 
,C0RUS2 
3 
2 
, CORTAL 

CORLOC 
, tD36 
CORLPl 
1 
, tD36 

CPOINT 6, 
, CORUSZ 
, TAC 
. CORLOP 
TAC 



;TEST DONE 
;TEST next BLOCK 

;COUNT FREE 
;C0RUSZ=SIZE RESERVED. CORLOC=LOCATlON 



ND IS UPDATED 

;SAVE NO. OF BLOCKS BEING REQ 
;FIX CORTALLY 



;GET POINTER-1 

;tac=word,taci=bit 

;F0RM byte POINTER 



TAC, 5] 



; SET OR CLEAR EACH BIT IN USE 



CORLPi: 



XWD 100, CORTAB 



END, 



THERE ARE NO ERRORS 
PROGRAM BREAK IS 000100 
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A 

ACl 

AC? 

AC3 

AL 

ASSCON 

ASSPRG 

B 

BUFPNT 

BUFWRD 

CLOSB 

CLSIN 

CLSOUT 

CORl 

C0R2 

C0R3 

COREl 

COREIP 

C0RE2P 

CORGI 

CORGET 

CORGVE 

CORHOl 

CORHOL 

CORLOC 

CORLOP 

CORLPl 

CORLST 

CORNG 

COROK 

CORRET 

CORSTG 

CORTAB 

CORTAL 

CORUSZ 

D 

DAT 

DCL 

new 

DDI 

000 

DDTMEM 

DOTSYM 

OEN 

OEVAOR 

OEVBUF 

DEVCHR 

OEVCTR 

OEVDAT 

OEVIAD 

DEVI OS 

DEVLOG 

DEVMOD 

OEVNAM 

DEVOAO 



000000 


INT 


000015 


INT 


000016 


INT 


000017 


INT 


000001 


INT 


400000 


INT 


200000 


INT 


000014 


INT 


000012 


INT 


000013 


INT 


002000 


INT 


000002 


INT 


000001 


INT 


000012 




000013 




000014 




000002' 


INT 


000042' 




000043' 




000017' 




000013' 




000023' 




000045' 




000044' 




000001 ' 




000072' 




000076' 




000045' 


EXT 


000040' 




000037' 




000011' 




000056' 




000076' 


EXT 


000062' 


EXT 


000000 ' 




000017 


INT 


000005 


INT 


000001 


INT 


020000 


INT 


000007 


INT 


000006 


INT 


000037 


INT 


000036 


INT 


000004 


INT 


000007 


INT 


000006 


INT 


000001 


INT 


000011 


INT 


00 006 


INT 


000007 


INT 


000002 


INT 


000005 


INT 


00 4 


INT 


000000 


INT 


000010 


INT 
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DEVPTR 

DEVSER 

DGF 

DIN 

OLK 

DOU 

OR 

DRL 

DSI 

OSO 

DTW 

DVAVAL 

OVCDR 

nvniR 

DVDIRI 

DVIN 

nVLPT 

OVMTA 

DVOUT 

DVTTY 

ENTRB 

I 

18 

IBUFR 

INITB 

INPB 

10 

lOACT 

lOBEG 

TORKTL 

lOCONi 

lODEMD 

lOnERR 

lODISC 

lODONE 

lOnTER 

lOFND 

lOFST 

lOIMPM 

lONRCK 

lORDEL 

lORET 

lOS 

lOSTRT 

lOUSF 

lOW 

lOWC 

lOWS 

ITEM 

JBFADR 

JBFCTR 

JBFPTR 

JBTADR 

JBUF 

JDAT 



000010 
000003 

000012 
000003 
000005 
000002 
000016 
000000 
000011 
000010 
040000 
000040 

100000 

000004 
400000 
000002 
040000 
000020 
000001 
000010 
020000 
000010 
000013 
200000 
400000 
010000 
000020 
010000 
000002 
040000 
000040 
020000 
200000 
400000 
400000 
100000 
000040 
000004 
400000 
000100 
000100 
000020 
000000 

000010 

400000 

000001 

000020 

400000 

000004 

000000 

000002 

000001 

000042' 

000005 

000011 



INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
TNT 
INT 
INT 
TNT 
INT 
INT 
INT 
TNT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
EXT 
INT 
INT 
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JERR 

JIOW 

JNA 

JORREL 

LOOKR 

MTW 

OBUFB 

OUTPR 

PDF 

PICHN 

PROG 

RUN 

RUNA8L 

TAC 

TACl 

TEM 

TTYATC 

TTYUSE 

USRMOO 

UUO 



002000 
100000 
004000 
000035 
040000 
010000 
100000 
004000 

000003 

000100 

000007 
200000 
204000 
000001 
000002 
000010 
020000 
010000 
010000 
000014 



INT 
INT 
INT 
EXT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 



END OF ASSEMBLY 



